HPAVC/HPAVC CD-ROM.iso/ABUSESRC.ZIP/AbuseSrc/abuse/src/language.c

C/C++ Source or Header | 1996-04-11 | 221b | 10 lines

#include "lisp.hpp"

char *lang_string(char *symbol)
{
  void *v=find_symbol(symbol);
  if (!v || !DEFINEDP(symbol_value(v))) return "Language symbol missing!";
  else return lstring_value(symbol_value(v));
}